Hallo Holger,
zunächst vielen vielen Dank für deine Antwort.
Die Stringzerteilung klappt bestens. Das Problem ist aber, das die Tabelle in dem Word-Dokument schon vorhanden ist. Ich darf also keine neue Tabelle anlegen, sondern muss die bestehende Tabelle um eine Zeile erweitern. Habe dazu schon mal etwas geschaut, wie es scheint erhalte ich eine neue Zeile indem ich folgenden Code benutze:
a = Cells(1, 1)
b = Split(Replace(a, ".", ""), " ")
docTest.Bookmarks("tabelle").Select
appWord.Selection.MoveRight Unit:=wdCell
For k = 0 To UBound(b)
Sheets("Test").Cells(k, 2) = b(k)
Next k
Nur funktioniert das ganze nicht. die Textmarke liegt in der letzte Zelle, nach der quasi die neue Zeile hinzugefügt werden soll. Aber Excel wirft nur Fehler. Wahrscheinlich weil Excel den Word-Befehl: Selection.MoveRight Unit:=wdCell nicht kennt.
Hat irgendwer eine Idee, wie ich nun die Zelle der Tabelle in Word ansprechen kann? Das Makro soll in Excel gestartet werden.
Grüße
Chronnie
|